Ucitati n i elemente niza x duzine n. Sortirati elemente niza u nerastucem poretku.

Sub zad7()
Dim x(100) As Double, n As Long, i As Double, j As Double, p As Double
Open "ulaz.txt" For Input As #1
Input #1, n
For i = 1 To n
Input #1, x(i)
Next
Close #1
For i = 1 To n - 1
  For j = i + 1 To n
    If x(i) < x(j) Then
    p = x(i)
    x(i) = x(j)
    x(j) = p
    End If
  Next
Next
Open "izlaz.txt" For Output As #1
For i = 1 To n
Print #1, x(i)
Next
Close #1
End Sub


